home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / CommandPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  4.5 KB  |  223 lines
  1. /*
  2. **    CommandPanel.c
  3. **
  4. **    Editing panel for command sequences
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #ifndef _GLOBAL_H
  11. #include "Global.h"
  12. #endif
  13.  
  14. enum    {    GAD_USE=1000,GAD_CANCEL };
  15.  
  16. BOOL
  17. CommandPanel(struct Window *Parent,struct Configuration *LocalConfig)
  18. {
  19.     STATIC WORD LabelTable[] =
  20.     {
  21.         MSG_COMMANDPANEL_STARTUP_LOGIN_MACRO_GAD,
  22.         MSG_COMMANDPANEL_LOGIN_MACRO_GAD,
  23.         MSG_COMMANDPANEL_LOGOFF_MACRO_GAD,
  24.         MSG_COMMANDPANEL_UPLOAD_MACRO_GAD,
  25.         MSG_COMMANDPANEL_DOWNLOAD_MACRO_GAD
  26.     };
  27.  
  28.     LONG             i,Max,Len;
  29.     struct LayoutHandle    *Handle;
  30.     BOOL             UseIt = FALSE;
  31.  
  32.     SaveConfig(LocalConfig,PrivateConfig);
  33.  
  34.     if(Handle = LT_CreateHandleTags(Parent -> WScreen,
  35.         LH_LocaleHook,    &LocaleHook,
  36.         LH_ExitFlush,    FALSE,
  37.     TAG_DONE))
  38.     {
  39.         struct Window *PanelWindow;
  40.  
  41.         for(i = Max = 0 ; i < NumElements(LabelTable) ; i++)
  42.         {
  43.             if((Len = LT_LabelChars(Handle,LocaleString(LabelTable[i]))) > Max)
  44.                 Max = Len;
  45.         }
  46.  
  47.         LT_New(Handle,
  48.             LA_Type,    VERTICAL_KIND,
  49.         TAG_DONE);
  50.         {
  51.             LT_New(Handle,
  52.                 LA_Type,    VERTICAL_KIND,
  53.                 LA_LabelID,    MSG_V36_0026,
  54.             TAG_DONE);
  55.             {
  56.                 LT_New(Handle,
  57.                     LA_Type,    STRING_KIND,
  58.                     LA_LabelID,    MSG_COMMANDPANEL_STARTUP_LOGIN_MACRO_GAD,
  59.                     LA_STRPTR,    PrivateConfig -> CommandConfig -> StartupMacro,
  60.                     LA_Chars,    30,
  61.                     LA_LabelChars,    Max,
  62.                     GTST_MaxChars,    255,
  63.                 TAG_DONE);
  64.  
  65.                 LT_New(Handle,LA_Type,XBAR_KIND,TAG_DONE);
  66.  
  67.                 LT_New(Handle,
  68.                     LA_Type,    STRING_KIND,
  69.                     LA_LabelID,    MSG_COMMANDPANEL_LOGIN_MACRO_GAD,
  70.                     LA_STRPTR,    PrivateConfig -> CommandConfig -> LoginMacro,
  71.                     LA_LabelChars,    Max,
  72.                     GTST_MaxChars,    255,
  73.                 TAG_DONE);
  74.  
  75.                 LT_New(Handle,
  76.                     LA_Type,    STRING_KIND,
  77.                     LA_LabelID,    MSG_COMMANDPANEL_LOGOFF_MACRO_GAD,
  78.                     LA_STRPTR,    PrivateConfig -> CommandConfig -> LogoffMacro,
  79.                     LA_LabelChars,    Max,
  80.                     GTST_MaxChars,    255,
  81.                 TAG_DONE);
  82.  
  83.                 LT_EndGroup(Handle);
  84.             }
  85.  
  86.             LT_New(Handle,
  87.                 LA_Type,        VERTICAL_KIND,
  88.                 LA_LabelID,        MSG_V36_0027,
  89.                 LAGR_LastAttributes,    TRUE,
  90.             TAG_DONE);
  91.             {
  92.                 LT_New(Handle,
  93.                     LA_Type,    STRING_KIND,
  94.                     LA_LabelID,    MSG_COMMANDPANEL_UPLOAD_MACRO_GAD,
  95.                     LA_STRPTR,    PrivateConfig -> CommandConfig -> UploadMacro,
  96.                     LA_LabelChars,    Max,
  97.                     GTST_MaxChars,    255,
  98.                 TAG_DONE);
  99.  
  100.                 LT_New(Handle,
  101.                     LA_Type,    STRING_KIND,
  102.                     LA_LabelID,    MSG_COMMANDPANEL_DOWNLOAD_MACRO_GAD,
  103.                     LA_STRPTR,    PrivateConfig -> CommandConfig -> DownloadMacro,
  104.                     LA_LabelChars,    Max,
  105.                     GTST_MaxChars,    255,
  106.                 TAG_DONE);
  107.  
  108.                 LT_EndGroup(Handle);
  109.             }
  110.  
  111.             LT_New(Handle,
  112.                 LA_Type,VERTICAL_KIND,
  113.             TAG_DONE);
  114.             {
  115.                 LT_New(Handle,
  116.                     LA_Type,    XBAR_KIND,
  117.                     LAXB_FullSize,    TRUE,
  118.                 TAG_DONE);
  119.  
  120.                 LT_EndGroup(Handle);
  121.             }
  122.  
  123.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  124.                 LAGR_SameSize,    TRUE,
  125.                 LAGR_Spread,    TRUE,
  126.             TAG_DONE);
  127.             {
  128.                 LT_New(Handle,
  129.                     LA_Type,    BUTTON_KIND,
  130.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  131.                     LA_ID,        GAD_USE,
  132.                     LABT_ReturnKey,    TRUE,
  133.                     LABT_ExtraFat,    TRUE,
  134.                 TAG_DONE);
  135.  
  136.                 LT_New(Handle,
  137.                     LA_Type,    BUTTON_KIND,
  138.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  139.                     LA_ID,        GAD_CANCEL,
  140.                     LABT_EscKey,    TRUE,
  141.                     LABT_ExtraFat,    TRUE,
  142.                 TAG_DONE);
  143.  
  144.                 LT_EndGroup(Handle);
  145.             }
  146.  
  147.             LT_EndGroup(Handle);
  148.         }
  149.  
  150.         if(PanelWindow = LT_Build(Handle,
  151.             LAWN_TitleID,        MSG_COMMANDPANEL_COMMAND_PREFERENCES_GAD,
  152.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  153.             LAWN_HelpHook,        &GuideHook,
  154.             LAWN_Parent,        Parent,
  155.             WA_DepthGadget,        TRUE,
  156.             WA_CloseGadget,        TRUE,
  157.             WA_DragBar,        TRUE,
  158.             WA_RMBTrap,        TRUE,
  159.             WA_Activate,        TRUE,
  160.             WA_SimpleRefresh,    TRUE,
  161.         TAG_DONE))
  162.         {
  163.             struct IntuiMessage    *Message;
  164.             BOOL             Done = FALSE;
  165.             ULONG             MsgClass;
  166.             struct Gadget        *MsgGadget;
  167.  
  168.             GuideContext(CONTEXT_COMMAND);
  169.  
  170.             PushWindow(PanelWindow);
  171.  
  172.             LT_ShowWindow(Handle,TRUE);
  173.  
  174.             do
  175.             {
  176.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  177.                     break;
  178.  
  179.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  180.                 {
  181.                     MsgClass    = Message -> Class;
  182.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  183.  
  184.                     LT_ReplyIMsg(Message);
  185.  
  186.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  187.                         Done = TRUE;
  188.  
  189.                     if(MsgClass == IDCMP_GADGETUP)
  190.                     {
  191.                         switch(MsgGadget -> GadgetID)
  192.                         {
  193.                             case GAD_USE:
  194.  
  195.                                 LT_UpdateStrings(Handle);
  196.  
  197.                                 UseIt = Done = TRUE;
  198.                                 break;
  199.  
  200.                             case GAD_CANCEL:
  201.  
  202.                                 Done = TRUE;
  203.                                 break;
  204.                         }
  205.                     }
  206.                 }
  207.             }
  208.             while(!Done);
  209.  
  210.             PopWindow();
  211.         }
  212.  
  213.         LT_DeleteHandle(Handle);
  214.     }
  215.  
  216.     if(UseIt)
  217.         SwapConfig(LocalConfig,PrivateConfig);
  218.     else
  219.         SaveConfig(LocalConfig,PrivateConfig);
  220.  
  221.     return(UseIt);
  222. }
  223.